UC知道请教：[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
来源：百度知道 编辑：UC知道 时间：2024/06/30 01:55:52
输入卡号和书号，点击还书就出现如下情况：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/ASP图书管理系统V2.0/restoreBook.asp, 第 40 行
代码如下：
<%
If Request("bookno")<>"" AND IsNumeric(Request("bookno")) Then
Dim conn,rs,sql,cardno
sql = "Select cardno From Loans WHERE bookno = '" & Replace(Request("bookno"), "'", "''") &"' and cardno= '" & Replace(Request("cardno"), "'", "''") &"'"
set conn=server.createobject("ADODB.CONNECTION")
conn.open MM_conn_STRING
Set rs=conn.execute(sql)
If rs.BOF And rs.EOF Then
Response.Write("<font color=red><b>错误！</b></font>编号为“"&Request("bookno")&"”的图书不存在，或没有外借。")
Else
cardno = rs("c
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
/ASP图书管理系统V2.0/restoreBook.asp, 第 40 行
代码如下：
<%
If Request("bookno")<>"" AND IsNumeric(Request("bookno")) Then
Dim conn,rs,sql,cardno
sql = "Select cardno From Loans WHERE bookno = '" & Replace(Request("bookno"), "'", "''") &"' and cardno= '" & Replace(Request("cardno"), "'", "''") &"'"
set conn=server.createobject("ADODB.CONNECTION")
conn.open MM_conn_STRING
Set rs=conn.execute(sql)
If rs.BOF And rs.EOF Then
Response.Write("<font color=red><b>错误！</b></font>编号为“"&Request("bookno")&"”的图书不存在，或没有外借。")
Else
cardno = rs("c
少单引号吧
executeUpdate("UPDATE Books SET [number]=[number]+1 WHERE bookno = '" & Replace(Request("bookno"), "'", "''") & "'" )
executeUpdate("UPDATE Borrowers SET loannum=loannum-1 WHERE cardno='"&cardno&"'")
executeDelete("Delete From Loans WHERE bookno = '" & Replace(Request("bookno"), "'", "''") &"' and cardno= '" & Replace(Request("cardno"), "'", "''") &"'")